100 REM*****STACK*****
110 GOSUB2000
120 DIMG(10,4)
130 FORB=1TO5:FORL=1TO3:G(B,L)=0:NEXTL:NEXTB
140 PRINT"HOW MANY BARS DO YOU WANT TO MOVE
150 [153]"(2,3,4 OR 5)?
160 INPUT X
170 D=0
180 FORZ=1TO5:IFZ=XTHEN300:NEXTZ
300 POKE53281,5:PRINT"[147]
310 [153]" WAIT
320 PRINT" 3 [146]
330 [153]"  5  WAIT
340 PRINT"   7   [146]
350 [153]"    9    WAIT
360 PRINT"     11    [146]
370 [153]"123STOP
400 N=5:B=11
410 FORC=XTO1STEP-1
420 G(N,1)=B:B=B-2:N=N-1:NEXTC:GOSUB1230
430 IFX=2THENMM$="9 & 11"
440 IFX=3THENMM$="7,9 & 11"
450 IFX=4THENMM$="5,7,9 & 11"
460 IFX=5THENMM$="3,5,7,9 & 11"
470 PRINT"[144]YOU WILL BE MOVING BARS ";MM$
480 PRINT"":INPUT"WHICH BAR DO YOU WANT TO MOVE";B
490 IFB=3ANDX=<4THEN530
500 IFB=5ANDX=<3THEN530
510 IFB=7ANDX=<2THEN530
520 IF(B-3)*(B-5)*(B-7)*(B-9)*(B-11)=0THEN540
530 PRINT"YOU MAY ONLY USE ";MM$;"":PRINT SPC(10)"ENTER AGAIN!":GOTO480
540 FORY=1TO5:FORR=1TO3:IFG(Y,R)=BTHEN560
550 NEXTR:NEXTY
560 FORZ=YTO1STEP-1
570 IFG(Z,R)=0THEN590
580 IFG(Z,R)<BTHEN600
590 NEXTZ:GOTO700
600 PRINT"THAT BAR IS UNDER ANOTHER ONE. MAKEANOTHER CHOICE.":PRINT"
610 [137]480
700 [133]"PLACE BAR ON WHICH STACK";L
710 [139](L[171]1)[172](L[171]2)[172](L[171]3)[178]0[167]800
720 [153]"YOU MUST CHOOSE '1', '2' OR '3'":[137]700
800 [129]Y[178]1[164]5:[139]G(Y,L)[179][177]0[167]830
810 [130]Y
820 [137]860
830 [139]B[179]G(Y,L)[167]860
840 [153]"YOU CAN'T PLACE A LONGER BAR ON TOP OF ASMALLER ONE...TRY AGAIN!
850 PRINT"":GOTO480
860 FORW=1TO5:FORC=1TO3:IFG(W,C)=BTHEN910
900 NEXTC:NEXTW
910 FORV=1TO5:IFG(V,L)<>0THEN940
920 NEXTV
930 V=5:GOTO950
940 V=V-1
950 G(V,L)=G(W,C):G(W,C)=0:GOSUB1230
960 D=D+1
970 FORY=1TO5:FORR=1TO2:IFG(Y,R)<>0THEN480
980 NEXTR:NEXTY
990 IFD<>2^X-1THEN1500
1000 GOSUB3190
1200 POKE53281,13:PRINT"[147][144]TRY AGAIN[160]('Y' OR 'N')";:INPUT A$
1210 IF A$="N" THEN 1330
1220 IFA$="Y" THEN 130
1230 FORJ=1TO5:P=7:FORS=1TO3
1240 IFG(J,S)=0THEN1300
1250 PRINTTAB(P-INT(G(J,S)/2));
1260 FORW=1TOG(J,S)
1270 PRINT"[159] [146]";
1280 NEXTW
1290 GOTO1310
1300 PRINTTAB(P);" [146]";
1310 P=P+11
1320 NEXTS:PRINT:NEXTJ:RETURN
1330 POKE53280,4:POKE53281,7:PRINT"[147]
1340 [153]"THANK YOU...PLEASE PLAY AGAIN SOON.":[129]T[178]1[164]3000:[130]:[153]"LOAD
1350 END
1500 POKE53280,0:POKE53281,8:PRINT"[147]
1510 [139]X[178]2[167]M$[178]"3 MOVES"
1520 [139]X[178]3[167]M$[178]"7 MOVES"
1530 [139]X[178]4[167]M$[178]"15 MOVES"
1540 [139]X[178]5[167]M$[178]"31 MOVES"
1550 [153]"IT TOOK YOU";D;"MOVES.
1560 PRINT"IT COULD HAVE BEEN DONE IN ONLY ";M$;"
1570 [153]"TRY HARDER NEXT TIME!":[129]T[178]1[164]5000:[130]:[137]1200
2000 [151]53280,8:[151]53281,3:[153]"LOAD
2010 PRINT"                         
2020 [153]"                         
2030 PRINT"                         
2040 [153]"       
2050 PRINT"               
2060 [153]"        
2070 PRINT"                       
2080 [153]"                        
2090 PRINT"                        ":PRINT"":FORT=1TO1500:NEXT
3000 PRINT"[144]123
3010 [153]"   WAIT
3020 PRINT"   [146]
3030 [153]"   WAIT
3040 PRINT"[158] [144]3[158]   [146]
3050 [153]"STOP  STOP5STOP    WAIT
3060 PRINT"   [144]7     [146]
3070 [153]"    STOP9      WAIT
3080 PRINT"     [144]11      [146]":FORT=1TO3000:NEXT
3090 POKE53280,7:POKE53281,15:PRINT"[147]
3100 [153]"TO PLAY THIS GAME YOU MUST TRANSFER THE":[153]
3110 [153]"BARS FROM THE LEFTWAIT STACK TO THE RIGHTWAIT":[153]
3120 [153]"STACK, ONE BAR AT A TIME, NEVER PUTTING":[153]
3130 [153]"A LONGER BAR ON A SMALLER ONE.":[153]"
3140 PRINT"PRESS <RETURN>[146] TO CONTINUE
3150 [153]"LIST":[133] C
3160 [151]53280,2:[151]53281,7:[153]"LOADSTOP
3170 PRINT"YOU MAY CHOOSE FROM 2 TO 5 BARS":PRINT
3180 PRINT"WHEN YOU START THE GAME.":FORT=1 TO 1500:NEXT:RETURN
3190 POKE53280,7:POKE53281,14:PRINT"[147]
3200 [153]"XXXXXXXXXXXXXXXXXXXXXX
3210 PRINT"XXXXXXXXX
3220 [153]"XXXXXXXX
3230 PRINT"XXXXXXXX
3240 [153]"XXXXXXXXXXXXXXXXXXXXX
3250 PRINT"XXXXXXX
3260 [153]"XXXXXXX
3270 PRINT"XXXXXXXX
3280 [153]"XXXXXXXXXXXXXXXXX
3290 PRINT"YOU DID IT IN THE LEAST POSSIBLE
3300 [153]"NUMBER OF MOVES!!!!!":[129]T[178]1[164]2500:[130]:[142]